home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / archiver / arc.zoo / arctst.s1 < prev    next >
Text File  |  1989-01-29  |  1KB  |  102 lines
  1. #NO_APP
  2. .text
  3. LC0:
  4.     .ascii "Archive truncated in file %s\12\0"
  5. LC1:
  6.     .ascii "Testing file: %-12s  \0"
  7. LC2:
  8.     .ascii "okay\12\0"
  9. LC3:
  10.     .ascii "No errors detected\12\0"
  11. LC4:
  12.     .ascii "One error detected\12\0"
  13. LC5:
  14.     .ascii "%d errors detected\12\0"
  15.     .even
  16. .globl _tstarc
  17. _tstarc:
  18.     link a6,#-28
  19.     moveml #0x3020,sp@-
  20.     clrw sp@-
  21.     subql #2,sp
  22.     jbsr _openarc
  23.     movew #2,sp@-
  24.     subql #2,sp
  25.     clrl sp@-
  26.     movel _arc,sp@-
  27.     lea _fseek,a2
  28.     jbsr a2@
  29.     movel _arc,sp@-
  30.     jbsr _ftell
  31.     movel d0,d3
  32.     clrw sp@-
  33.     subql #2,sp
  34.     clrl sp@-
  35.     movel _arc,sp@-
  36.     jbsr a2@
  37.     addw #32,sp
  38.     moveq #-28,d2
  39.     addl a6,d2
  40.     jra L2
  41. L8:
  42.     movel _arc,sp@-
  43.     jbsr _ftell
  44.     addl a6@(-14),d0
  45.     addqw #4,sp
  46.     cmpl d0,d3
  47.     jge L4
  48.     movel d2,sp@-
  49.     pea LC0
  50.     jbsr _printf
  51.     addqw #1,_nerrs
  52.     addqw #8,sp
  53.     jra L3
  54. L4:
  55.     movel d2,sp@-
  56.     pea LC1
  57.     jbsr _printf
  58.     movel __io_table+4,sp@-
  59.     jbsr _fflush
  60.     movel d2,sp@-
  61.     clrw sp@-
  62.     subql #2,sp
  63.     movel _arc,sp@-
  64.     jbsr _unpack
  65.     addw #24,sp
  66.     tstw d0
  67.     jeq L6
  68.     addqw #1,_nerrs
  69.     jra L2
  70. L6:
  71.     pea LC2
  72.     jbsr _printf
  73.     addqw #4,sp
  74. L2:
  75.     movel _arc,sp@-
  76.     movel d2,sp@-
  77.     jbsr _readhdr
  78.     addqw #8,sp
  79.     tstw d0
  80.     jne L8
  81. L3:
  82.     tstw _nerrs
  83.     jgt L9
  84.     pea LC3
  85.     jbsr _printf
  86.     jra L10
  87. L9:
  88.     cmpw #1,_nerrs
  89.     jne L11
  90.     pea LC4
  91.     jbsr _printf
  92.     jra L10
  93. L11:
  94.     movew _nerrs,sp@-
  95.     subql #2,sp
  96.     pea LC5
  97.     jbsr _printf
  98. L10:
  99.     moveml a6@(-40),#0x40c
  100.     unlk a6
  101.     rts
  102.